home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nothing / nothing.frm < prev    next >
Text File  |  1997-05-27  |  2KB  |  71 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Nothing"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   6225
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5820
  12.    ScaleWidth      =   7365
  13.    Top             =   1140
  14.    Width           =   7485
  15.    Begin CommandButton Command2 
  16.       Caption         =   "Exit, Loser!"
  17.       Height          =   615
  18.       Left            =   720
  19.       TabIndex        =   4
  20.       Top             =   2280
  21.       Visible         =   0   'False
  22.       Width           =   1575
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Start"
  26.       Default         =   -1  'True
  27.       Height          =   615
  28.       Left            =   720
  29.       TabIndex        =   2
  30.       Top             =   2280
  31.       Width           =   1575
  32.    End
  33.    Begin Label Label3 
  34.       Caption         =   "Hey!  I saw that blink!  You're outta there!"
  35.       Height          =   255
  36.       Left            =   0
  37.       TabIndex        =   3
  38.       Top             =   0
  39.       Visible         =   0   'False
  40.       Width           =   7215
  41.    End
  42.    Begin Label Label2 
  43.       Caption         =   "KEYS: J-Do absolutely nothing K-Do absolutely nothing UP ARROW-Do absolutely nothing.  Press P to pause or unpause. If you do absolutely nothing for ten straight eons, you will be released finally.  If you do something, POOF!  So take a deep breath, click on Start, and do absolutely nothing."
  44.       Height          =   855
  45.       Left            =   0
  46.       TabIndex        =   1
  47.       Top             =   720
  48.       Width           =   7335
  49.    End
  50.    Begin Label Label1 
  51.       Caption         =   "In this game, your mission is to do absolutely nothing.  Dr. Nothing has captured you and stored you in his infamous Nothing McNuggets.  If you don't do nothing, Dr. Nothing will freeze you solid."
  52.       Height          =   615
  53.       Left            =   0
  54.       TabIndex        =   0
  55.       Top             =   0
  56.       Width           =   7335
  57.    End
  58. End
  59. Sub Command1_Click ()
  60. Label1.Visible = False
  61. Label2.Visible = False
  62. Command2.Default = True
  63. Label3.Visible = True
  64. Command2.Visible = True
  65. End Sub
  66.  
  67. Sub Command2_Click ()
  68. End
  69. End Sub
  70.  
  71.